home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
patches
/
dopus511.lha
/
dopus_pch.lha
/
ARexx.lha
/
Arexx
/
CDO.dopus5
next >
Wrap
Text File
|
1995-05-14
|
976b
|
26 lines
/* CDO v1.01 [13-May-1995] for Directory Opus 5
By Leo Davidson ("Nudel", P0T-NOoDLE/Gods'Gift Utilities)
Note: Please don't confuse this with the OCD script!
When run from a Shell, will echo the path used by the SOURCE Lister.
Using an alias, this can be used as a command which CD's to the path
used by the SOURCE lister.
To set up the command "CDO", add the following to your s:shell-startup:
-------------------------------------------------------------------------------
Alias CDO "CD *"*`rx DOpus5:ARexx/cdo.dopus5*`*""
-------------------------------------------------------------------------------
*/
signal on error /* if "lister query..." fails, exit */
options results
address "DOPUS.1" /* Assumes there's only one copy. */
lister query source /* Get handle of 1st SOURCE lister. */
Ls_Handle = Word(RESULT,1)
Lister Query Ls_Handle Path /* Get its path. */
Say Strip(RESULT,B,'"') /* Echo result -> input of CD cmd. */
Error:
EXIT